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NN NN TTTTTITTTIT 000000 BBBBBBBB LL DDDDDDDD XX XX AAAAAA BBBBBBBB 
NN NN TT 00 00 BB LL DD DD Xx XX AA AA 6B BB 
NN NN TT 00 00 6B BB LL DD DD XX XX AA AA 6B ea 
NNNN NN TT 00 0000 6B BB LL DD DD XX XX AA AA 6B RB 
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NN NN TT 000000 BBSREBRB LLLLLLLLLL DDDDDDDD XX XX AA AA ®8BBBBBBB ee: 
NN NN TT 000000 BBBBBBBB LLLLLLLLLL DDDDDDDD XX XX AA AA ®BBBBBBB eat 
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LL I] SSSSSSSS 
LL I] Ss 
LL II Ss 
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LL I] SSSSSS 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS te ‘ithe 4 FURNISHED UNDER A LICENSE AND MAY BE USED AND sora 
ONLY A ANCE HE TERM N 


TRANSFERRED. 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
oeepokarion NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
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® 
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® 

* 

® 


@eeeeeeeeeneenneeaeaennnne 


(ARRARAAARASAAARASASLAALAAESELASELESESASES ERR SERRE LARA R RRR AR ARREARS ASRS SSS 
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Facility: RMS 

Abstract: 

This module builds the DAP Extended Attributes messages. 
Environment: VAX/VMS, executive mode 

Author: James A. Krycka, Creation Date: 24-MAY-1979 
Modified By: 


¥03-006 giaens? Krycka 12-APR-1984 
Track changes in DAP message building algorithm. 


V03-005 JAKO0132 J A Krycka 17-FEB-1984 = 
Always include a oom. ield in the DAP Protection message. 


V03-004 JAKO124 J A Krycka 06-SEP-1983 
Make corres re lg | source code change for VMS V3.5 patch in 
support of VAXELA 


v03-003 EORODGS Malik 21-0c t-1982 
ix ous in NTSENCODE KEY which causes an access violation 
+4 M field is présent. 


v03-002 JAKO101 J A Krycka 09-OCT-1982 
Build date and time otk lens with a leading zero instead of 
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a8 ety 7 5:58:42 RMS .SRCIN OBLDXAB. MAR: 1 


a leading space to conform to the DAP specification. 
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Dd AB MESSAGES 15-SEP-1984 23:49:13 VAX/VMS Macro Vv04-00 Page 
A S aS e 1 obe $8358: 12 LRMS SRCINTOBLDXAB. MAR; 1 ° 3) 
6¢ -SBTTL DECLARATIONS 
64 ; 
65 ; Include Files: 
i 
0 68 SDAPPLGDEF ; Define DAP prologue symbols 
0 4 SDAPHORDEF 3; Define DAP message header 
0 0 SDAPATTDEF 3 Define DAP Attributes message 
0 71 SDAPKEYDEF ; Define DAP Koy Definition message 
B88 us SOAPALLDEF ; Define DAP Allocation message 
S 7 SDAPTIMDEF ; Define DAP Date ong Time message 
0 74 SDAPPRODEF ; Define DAP Protection message 
000 75 SIFBDEF ; Define IFAB symbols 
0000 6 SNWADEF ; Define Network Work Area symbols 
0000 7 XABDEF : Define symbols common to all XABs 
0000 4 SXABALLDEF 3; Define Allocation XAB symbols 
0000 7 SXABDATDEF 3: Define Date and Time XAB symbols 
0000 80 SXABKEYDEF : Define Key Definition XAB symbols 
0000 81 SXABPRODEF ; Define Protection XAB_ symbols | 
0000 Hf SXABRDTDEF ; Define Revision Date/Time XAB symbols 
0000 8 
0000 84 ; 
0000 85 ; Macros: | 
0000 86 ; 
0000 87 ; None 
0000 88 ; 
0000 89 ; Equated Symbols: 
0000 90 3 
0000 91 
0000 38 ASSUME DAPS$Q_DCODE_FLG EQ 0 
BO08 3? ASSUME NWASQ"FLG EO 0 | 
00000030 4 22 PARTNER = DAPS$SW_PARTNER * 8 ; Offset to PARTNER field 
0000 97 ; 
0000 98 ; Own Storage: 
$333 a 
5D 57 4F 33 21 2C 57 4F 33 21 5B i 0000 101 T_UIC: .ASCIC \C!30W,!30W]\ : FAO control string 
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NTOBLDXAB BUILD DAP XAB MESSAGES 15-SEP-1984 23:49:13 VAX/VMS Macro v04-00 Page 4 
yOuebo0 NTSENCODE_KEY tae 1 $3350: RMS.SRCINTOBLDXAB.MAR; 1 . (3) 
. We -SBTTL NTSENCODE_KEY 
ER ee 
Bae 1 § ; NTSENCODE_KEY = builds the DAP Key Definition message. 
00C 108 : Calling Sequence: 
$0 198 ; bites 
845 119 ; BSBW NTSENCODE_KEY 
000C 11 3; Input Parameters: 
000c 113; 
$5 MW 3 . Key Pet initien XAB address 
; =D address 
OOOC 116; R8 FAB address 
Q00C 117; RG IFAB address 
$5 118 ; R10 FWA address 
Oboe 1} ; R11 Impure Area address 
000C 121 ; Implicit Inputs: 
oooc «(1 ¢ $ 
000C 123; User KEYXAB 
000C Ise : 
000C 125 ; Output Parameters: 
000C 126 ; 
000C 127; RO-R5 Destroyed 
000C 128; a 
000C \¢ 3 Implicit Outputs: 
000C 130; 
000c 9131 ; NWA$Q_BLD 
000C 13 ; 
000C 133 ; Completion Codes: 
O00C 134 ; 
000c 135; None 
000C 136; 
Q00C 137 ; Side Effects: 
000C 138; 
000C 139; None 
000C 140; 
000C 141 ;-- 
000C 16 
Q000C 143 NTSENCODE_KEY:: ; Entry point 
50 DO 445 144 MOVL #DAPSK_KEY_MSG,RO ; Get message type value 
FFEE' 30 OOOF 145 BSBW NTSBU ICD_HEAD 3 Construct message header 
51 QOO007FF 8F 00 Bats 146 MOVL H<DAPEA. FL! ; Get key menu value | 
019 148 DAPSM~IFLi- ; 
019 149 DAPSM_NSG!- 3 
019 150 DAPSM_REF !- ; 
019 151 APSM_KNM!- 3 
019 13 DAPSM_NUL!- 3 | 
019 15 DAPSM_IANi- ; 
019 154 DAPSM~LAN- ; 
019 155 DAPSM_DAN!- 3 
313 136 Pas tos DTIP!- ; 
FFE4* 30 0019 138 BSBW Aréevt -BN4_EXT ; Store KEYMENU as an extensible field 
| 
| 
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NTOBLDXAB BUILD DAP XAB MESSAGES 15-SEP-1984 23:49:13 VAX/VMS Macro v04-00 Page NT 
v04- RYSENCODE KEY Paes $3358: 12 CANS SRCINTOBLDXAB MAR: 1 . (3) | Sy 
1¢ «6160 ; | NW 
\e 18¢ 3 Include the FLG, DFL, and IFL fields in the message. sy 
~ Nid 
51 12 AG OA 1 184 MOVZBL XABSB_FLG(R6),R1 : Get FLG bits returned by RMS Nw 
52.4 82 165 R a ; Clear corresponding DAP bits Nw 
0 198 SMAPBIT XABSV_DUP,DAP$V_DUP 3; Map DUP bit NW 
8° A 16 SMAPBIT XABSV_CHG,DAPSV_CHG ; Map CHG bit Nw 
032 168 S$MAPBIT XABSV-NUL,DAPSV_NUL_CHR ; Map NUL bit NW 
85 52 90 OO3A 169 MOVB R2,(R5)+ 3 Store FLG as extensible field NW 
85 1 A6é B80 0030 170 MOVW XABSW_DFL(R6),(R5)+ 3; Store data bucket fill quantity field NW 
85 1A A6— BO Sl 17) MOVW XABSW_IFL(R6),(R5)+ 3; Store index bucket fill quantity field my 
0045 18 H Nw 
4k 174 ; Include the NSG, POS, and SIZ fields in the message. NW 
045 175; NW 
0045 176 Nw 
50 04 0045 177 CLRL RO : Initialize segment counter NW 
13 A6 691 «40047 )~=—178 CMPB XAB$B_DTP(R6),- :; Branch if the data type of the key Nw 
00 004A 179 #XABSC_STG : is string NW 
04 13 0048 £180 BEQL 10$ : Nw 
50 D6 004D 181 INCL 0 ; It's not string so there can be Nw 
OC 11 O04F 136 BRB 30$ 3: only one segment for the key NW 
52 2€ A6 YE 0051 183 10S: MOVAB XAB$B_SIZ(R6),R2 ; Get address of SIZ array Nu 
82 95 0055 184 208: TSTB (R2)+ 3 Exit loop on segment size of zero PA 
06 13 0057 185 L 308 : SY 
F850 O08 F2 0059 186 AOBLSS #8,R0,20$ ; Branch if more segments to examine 
85 50 90 005D 187 30S: VB «RO, (R5)+ : Store NSG field T 
1113 9069 188 BEQL ©: 50 i Branch if no segments found 
51 1€ A6 3E 006 189 MOVAW XABS$W_POS(R6),R1 ; Get address of POS array 
52  2—E A6 9E 0066 190 MOVAB XAB$B_SIZ(R6),R2 ; Get address of SIZ array 
85 81 B80 QO06A 191 40$: MOVW (R1)+,(R5)+ 3 Store next POS field 
85 82 90 006D 136 MOVB (R2)+,(R5)+ 3; Store next SIZ field 
F7 50 F5 007 19 SOBGTR RO,40$ ; Loop if more to go 
0073195 
Me 138 3; Include the REF, KNM, NUL, IAN, LAN, DAN, and DTP fields in the message. 
0073 198 * 
85 17 A6 90 007 199 50$: MOVB XABSB_REF (R6), (R5)+ ; Store key of reference field 
85 94 0077 00 CLRB + 3; Assume no key name buffer 
51 38 A6 00 0079 01 MOVL XABSL_KNM(R6) ,R1 ; Get address of key name buffer 
12 13 0070 8 BEQL : Branch if none specifie 
61 20 OA AY 96 4 PROBER Jf 988 ROSE (RO) .#52., (81) ; Probe readability of user buffer 
8 84 4 BEQL $ ; Branch if not accessible 
FF AS 90 0086 5 MOVB #32,-1(R5) ; Store_KNM as an image field 
65 61 ° 28 OO8A 6 MOVC3 #32,(R1),(R5) 3: Copy 32-byte KNM field into message 
55 DO bas 7 MOVL R3,R5 3; Update next byte pointer 
85 15 A6 90 91 8 608: MOVB XAB$B_NUL(R6),(R5)+ ; Store null key character field 
85 8 A6 «690 B86 09 MOVB XABS$B_IAN(R6),(R5)+ ; Store index area number field 
85 9A6 90 99 10 MOVB XABSB_LAN(R6) , (R5)+ ; Store lowest level index area 
009D 11 3; number field 
85 OA A6 90 90 \ MOVB XABSB_DAN(R6) , (R5)+ ; Store data area number field 
85 134A 3 Al 1 MOVB XABSB_DIP(R6) ,(R5)+ ; Store key data type field 
FF58° 3 AS 14 BSBW NTSBUTLO_TAIL ; Finish building message 
05 0O0A8 15 RSB 3 Exit 
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i NTSENCODE_ALL = builds the DAP Allocation message. 
Calling Sequence: 

BSBW NTSENCODE_ALL 
Input Parameters: 


RG Bt Loras igo XAB address 

p A (=DAP) address 
wae ———, 

R9 IFAB addre 

ai? IFAB/FWA aaarene 

R1 Impure Area address 


Implicit Inputs: 
r AL Abs ~ 

baPsy _5TM_ONLY 

DAPSV_VAX9MS, DAPSV_VAXELAN 
Output Parameters: 

RO-RS Destroyed 
Implicit Outputs: 

NWA$Q_BLD 


Completion Codes: 


None 
Side Effects: 
None 


NTSENCODE _ALL:: 
MOVL 4 hy ALL RO 


BSBW 
MOVZWL H<DAP M_VOL!- 


OQOA9 Entry point : \ 
et messa e value 
mie 30 Sone Co nstruct messege header 
0 Get initial allocation menu value 


51 O1E5 8 


DAP$M~BKZ' 
DAPSA. DEQ2!- 
C POARSV VAXVMS (R7),10$ 
SW2  #<<DAPSM_ALN>!- 
<DAPSA thei 


10$: BSBW Nrgevt _BN4_EXT 


Branch if partner is not VAX/VMS 


03 gf 34 ~=CO#é@#?Y 4 
1 OA AB 4 Add ALN and LOC fields to menu 


FF42* 30 OBB 


SINNED DEDEDE De TTT BBS ES BS BS BE BE ANIA AIIIPPUPINONINININPI NY SS 
WRI OOO NAW WN 9 ODNAUE WIN $$ O OD NAMES WN $0 OD NOAOULS WN" CO OONAUE WW OU0OOn 


| 


Store ALLMENU as an extensible field 
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: 
88 
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3 

ss 

i 

He 

$04 

i 
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i 
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i 

H 
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i 
16 


mo 
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MmOooooos—-oo°o— 
eceeeoseseesss 


E 
D 
3 
Dd 
9 
9 
B 
3 
0 


MOVW 
BBC 
ASSUME 
ASSUME 


MOVB 
MOVZBL 


CLRL 
SMAPBIT 
BITW 


XABSW_VOL(R6),(R5)+ 
#DAPSU_VAXVMS, (R7) , 208 
DAPSK_ANY EQ 0 | 
DAPSK~ crt EQ XABSC_CYL 
DAPSK"“LBN EQ XABS$C-LBN 
DAPSK~ ~VBN EQ XABSC_VBN 
XABSB_ALN(R6), (R5)+ 
R6)<R1 


KABSB_ AOP ( 
XABSV APsy VAX CTG2 


#<<1a2DAP$V_ VAXUMS-PARTNER 


: ; eve Macro V04-00 


Page 
RMS .SRCINTOBLDXAB.MAR; 1 


; Include the VOL, ALN, and AOP fields in the message. 


; Store relative volume number field 
; Branch if partner is not VAX/VMS 


; Eee Fe gee options fy 


bits returned by R 
Clear corresponding DAP bits 


<1a<DAP$V_ VAXELAN=PARTNER>> ! = 


» DAPS$W_PARTNER(R7) 
XABSV_ cer. DAPS$V_ care 
XABSV_HRD , DAPS$V_ 

KABSy. One! *DAPSV ONC 


Reet _BN4_EXT 


: Include the LOC, ALQ, AID, BKZ, and DEQ 


#DAPSV VAXVAS. (87) .408 
XABSL_COC(R6) ,R1 
NT$CVT Sh I ne 
XABSL_ALQ(R6) 


#DAPSU. STM. onc (R7), 508; 


wrscyt BN4_ IMG 
B_AID(R6 

R6 

R6 

Al 


(R6) 
XABS Z(R6) 
XABSW_ re 1 


; Branch if partner is neither VAX/VMS 
nor VAXELAN 


; Store AOP as an extensible field 


fields in the message. 


Branch if partner is not VAX/VMS 
Get starting location yolue 
Store LOC as an om field 

; Get allocation quan ity value 
Branch not a ‘stream-only’ machine 
Send ALQ value of zero 

Store ALQ as an image field 
Store area identification field 
Store bucket size fie 


Store default extension quantity field 


Finish building message 
Exit 


NT! 
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ESSAGES 1 mii h sy $3: 
SEP=1984 16 
M_D 


-SBTTL NTSENCODE_TI 


"NTSENCODE ag ee the DAP Date and Time message using the Date and Time 
nput. 
; Calling Sequence: 
BSBW NTSENCODE_TIM_D 


MIMMIPIIFINININ OP 


> > b> > b> b> b> SP PS Pb Po? oP or ot oT ot or at ot ot et at rt er ot er et et et et et et et et et et et et et et et alias 


Input Parameters: 

: R6 Date and Time XAB address 
: R7 NWA (=DAP) address 

: R8 FAB address 

: R9 IFAB address 

; R10 IFAB/FWA address 

: R11 Impure Area address 
Implicit Inputs: 

: User DATXAB 

; DAP$V_GEQ_V60 

: Output Parameters: 

RO-R5 Destroyed | 
Implicit Outputs: 
NWA$Q_BLD 
Completion Codes: 
: None 

Side Effects: 


None 


BM 
M_D 
1 
1§ 
0 3 
¢ 
4 
5: 
6 ; 
37 
8 
$9 
0 
331 
335 
334 
335 
336 
337 
338 
339 
340 
343 
348 
344 
345 
346 
347 
348 
349 
350 
$2) 
335 
354 
355: 
356 
357 ; 
358 
359 
36 


NTSENCODE _TIM_D: : Entry point 
MOVL #DAPSK TIM_MSG,RO Get message type value 


50 
BSBW NTS$BUICD_HEAD : Construct message header 


Fede’ 50 


Construct value for date and time menu field, 
Send only time fields that have a non-zero 64-bit time value, as zero_means 
the current date and time, not 17-NOV-1858! (Actually only the upper 32-bits | 
will be tested for zero.) 


ASSUME DAPS$V_ 


feolele lel elelealelelelelelelelelelelelelelelelelelelelelelelelelelelolelelelelelelelelelelelelelelelolelelelololelo) 
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0 
2 
68 
64 
65 
66 
67 
68 
69 
70 
4 
7§ 
74 


ASSUME DAP$V~ 


wipe) BIAS BUILD DAP XAB MESSAGES ti ts $3:49:17 ee Macro V04-00 Page 9. 
v04-000 NTSENCODE_TIM_D 5-SEP=1984 16:20:14 CRMS.SRCINTOBLDXAB.MAR; 1 (5) | 
4 : 6 ASSUME DAPS$V_BDT LT 7 
54 D4 QI2A 5§ CLRL RG : Initialize time menu field 
18 A be 12C 78 TSTL XABSQ_CDT+4(R6) ; Branch if creation date and time 
0 1 12F 79 BEQL 10$ ; _is zero 
54 01 88 0131 80 BISB2 #DAPSM_CDT,R4 3; Otherwise, send field 
TO AG D3 O134 3B1 108: STL xapsa RDT+4(R6) : Branch if revision date and time | 
0 13 0137 Hf BEQL 20$ 3; _is zero 
54 02 88 0139 8 BISB2 #DAPSM_RDT ; otherwise, send field 
20 A6 «02S «(013C)«=— 384 208: = ==TSTL XABSO MED T+ ¢R6) : Branch if expiration date and time | 
03 13 O13F 85 BEQL 30$ ; _is zer 
54 04 88 0141 $69 BISB2 #DAPS$M_EDT, ; Otherwise, send field 
OE 67 25 =€1 0144 87 30$: BBC #DAP$V-GEQ Te0, (R7),40$ ; Branch if ——— uses DAP before V6.0 
01 AB =91 «—(0148 358 CMPB XAB$B_BLN(R6) ,- : Branch if length of XAB is too qual 
2c 0148 389 #XABST DATLEN : te contain e i field (i.e., it's 
08 1F O14C 390 BLSSU 40$ : Ve cnet ) 
28 AB «60S 6(O14E) = 391 TSTL XABSQ_BDT+4(R6) ; Branch if ane, a date and time 
03 13 0151 $38 BEQL 40$ : is ze 
54 10 88 0153 39 BISB2 #DAPS$M_BDT,R4 : Otherwise, send field 
54 08 88 0156 394 40S: BISB2 #DAPSM-RVN,R4 ; Send revision number field . | 
85 54 90 0159 395 MOVB R4,(R5S+ ; Store TIMENU as an extensible field 
015C 396 
015C 397; ‘ 
015C 398 ; Now process each field. 
015C 399 ; 
015C 400 : 
06 54 OO €1 QO15C 401 BBC #DAP$V_CDT,R4,50$ ; Branch if CDT is not to be included 
50 14 A6 7E 0160 402 MOVAQ XABSQ_TOT(R6) RO ; Get address of 64-bit value for 
0164 403 ; creation date and time. 
26 «#10 0164 404 BSBB CONVERT _TIME ; Store CDT as_an image field. 
06 54 01 #42€1 0166 405 50S: BBC #DAPSV_RDT,R4,60$ 3; Branch if RDT is not to be included 
50 OC A6 7E O16A 406 MOVAQ XAB$Q_RDT(R6),RO ; Get address of 64-bit value for 
Q16E 407 ; _revision date and time 
1¢ 10 O16€ 408 BSBB CONVERT _TIME ; Store RDT as_an image field 
06 54 O02 €1 0170 409 60$: BBC #DAPSV_EDT,R4,70$ ; Branch if EDT is not to be included 
50° 1¢ A6 7E 0174 410 MOVAQ  XABSQ_EDT(R6) .RO : Get address of 64-bit value for | 
0178 38411 ; _expiration date and time 
12 10 0178 412 BSBB CONVERT _TIME ; Store EDT as an image field 
85 08 A6 BO OI7A 413 708: MOVW XABSW_RON(R6), (R5)+ ; Store revision number field 
06 54 04 €1 OI7E 414 BBC #DAPST_BDT,R4,80$ ; Branch if BDT is not to be included 
50 24 A6 7E 0182 415 MOVAQ XAB$Q_BDT(R6),RO ; Get address of 64-bit value for 
0186 416 F bechup date and time 
04 10 0186 417 BSBB CONVERT_TIME ; Store BDT as an image field | 
FE75" 30 0188 418 80$: BSBW NTSBUILB_TAIL : Finish building message 
05 0188 419 RSB ; Exit 
018C 420 
018C 421 ;+ 
018C 4 ¢ ; This routine converts a time value in 64-bit binary format to an ASCII string. 
018C 4 : Then it stores the string as an 18-byte fixed length field in the DAP message 
bie ? 23 3 with the first two digits of the year removed (per DAP spec). | 
018C 34 § 
018C 427 CONVERT_TIME: ; Entry point | 
35 ¢0 C2 018C 428 SUBL2 #<20+12>,SP ; Allocate space from the stack 
5 —E DO O18F 429 ; Save address of work area 
14 A2 14 00 0192 4350 MOVL #26 Ast ; Form descriptor of buffer to receive 
18 A2 SE «0 0196) 431 MOVL  SP,24(R2) : ASCII time string | 
} 
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Convert binary time to ASCII time 


Address of word fo receive string size 


Address of descriptor for buffer 
Address of 64-bit time value 
Flag set to request date and time 
Assume success; ignore failure 
Convert seeing rare to zero in 
day-of-month field to conform to 
the DAP V6.0 specification 
Store time field omitting the two 
century digits 
Save time meny mask 
Copy bytes 1-7 of input string 
Copy bytes 9-20 of input string 
Restore time menu mas 
Update next byte pointer 
ht space from the stack 
xi 
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1 51 -SBTTL NTSENCODE_TIM_R 
i 26 ++ 
1 54 ; NTSENCODE_TIM = builds the DAP Date and Time message using the Revision 
: 2? Date and Time XAB as input. 
: 3? Calling Sequence: 
: 23 BSBW NTSENCODE_TIM_R 
: 8) ; Input Parameters: 
8g R6 Revision Date and Time XAB address 
64 R?7 NWA (=DAP) address 
65 R8 FAB address 
66 R9 IFAB address 
67 R10 IFAB/FWA address 
R11 Impure Area address 


Implicit Inputs: 
User RDTXAB 
; Output Parameters: 
RO-R5 Destroyed 
Implicit Outputs: 
NWA$Q_BLD 
Completion Codes: 
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None 
’ Side Effects: 
1 None 
1 
1 ‘oo 
1 491 
1 492 NTSENCODE _TIM_R:: : Entry point 
50 OD 00 0Q1 49 MOVL #DAPSK_TIM_MSG,RO ; Get message type value 
FE33" 30 : rp BSBW NTSBUICD_HEAD ; Construct message header 
1 496 ; 
1 497 ; Construct value for date and time menu field. 
1 498 ; Send only time fields that have a non-zero 64-bit time value, as zero_means 
1 499 ; the current date and time, not 17-NOV-1858! (Actually only the upper 32-bits 
1 500 ; will be tested for zero.) 
1 501 ; 
1 208 
1 0 ASSUME DAP$V_RDT LT 7 
\ be ASSUME DAPS$V_RVN LT 7 
54 D4 01 06 CLRL R4 ; Initialize time menu field | 
10 A6 «65 «(01 507 TSTL XAB$Q_RDT+4(R6) ; Branch if revision date and time 
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wipe Dias BUILD DAP XAB MESSAGES i oa dot BS $3'39:17 AX/VMS Macro V04-00 Page 1 
v04-000 NTSENCODE_TIM_R 5-SEP-1984 16:20:14 CRMS.SRCINTOBLDXAB.MAR; 1 ( 
1 1D2 8 BEQL 10$ ; _is zero 

54 03 8 Obs 88 5125s #DAPSM_RDT,R4 ; Otherwise, send field | 
54 ? 8 0107 10 10$: BI1SB #DAPSM_RVN,R4 :; Send revision number field 
85 4 90 Hs 1} MOVB »(R5S+ ; Store TIMENU as an extensible field 
10D 18 ; J 
1DD 514 ; Now process each field. 
BB 
06 54 =01 A 1DD 215 BBC #DAPSV_RDT,R4,30$ ; Branch if RDT is not to be included 
50 OC AG «7E (O1E1 8518 MOVAQ XAB$Q_RDT(R6),RO : Get address of 64-bit value for 
1€5 21% 3 revision date and time 
AS 10 Q1E5S 0 BSBB CONVERT TIME ; Store RDT as an image field 
85 08 A6 8° 167 = 521-308: MOVW XABSW_RON(R6) , (R5)+ ; Store revision number field 
FE12° 30 O1EB 5 ¢ BSBW NTSBUILD_TAIL ; Finish building message 
05 OEE 52 RSB s Exit 
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++ 
NTSENCODE_PRO = builds the DAP Protection message. 
; Calling Sequence: 
BSBW NTSENCODE_PRO 
; Input Parameters: 
R Protection XAB address 
R NWA (=DAP) address 
R8 FAB address 
R9 IFAB address 
R10 IFAB/FWA address 
R11 Impure Area address 
Implicit Inputs: 


: User PROXAB 
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F 
F 
F 
F 
F 
F 
F 
O1EF 
3 F 
F 
O1EF 
8 F 
F 
O1EF 
O1EF 
O1EF 
O1EF 
O1EF 
O1EF 
O1EF 
O1EF 54 
O1EF 54 
Q1EF 54 Output Parameters: 
O1EF 54 
O1EF 54 RO-R5 Destroyed 
O1EF 55 . 
Q1EF 551 ; Implicit Outputs: 
O1EF 55 
O1EF 55 NWASQ_BLD 
O1EF 55 
O1EF 555 ; Completion Codes: 
O1EF 55 
O1EF 55 None 
O1EF 55 
O1EF 559 ; Side Effects: 
O1EF 56 
O1EF 56 None 
O1EF 56 
O1EF 563 ;-- 
O1EF 56 
O1EF 565 NTSENCODE _PRO:: ; Entry point 
0800 8F BB OIEF 56 POSHR #*M<R11> ; Save register 
50 O€ ° O1F3 3=— 56 MOVL #DAPSK_PRO_MSG,RO ; Get message type value 
FEO7" 30 : § 28 BSBW NTSBUICD_HEAD ; Construct message header 
1F9 2§ ASSUME DAPS$V_OWNER LT 7 
1F9 0s «471 ASSUME DAPS$V_PROSYS LT 7 
O1F9 278 ASSUME DAPS$V_PROOWN LT 7 
O1F9 7 ASSUME DAPS$V_PROGRP LT 7 
} 4 ne ASSUME DAPS$V_PROWLD LT 7 
5B D4 O1F9 6 CLRL R11 : Initialize temp PROMENU 
oc Ag o 1FB 7 TSTL XABSL_UIC(R6) : Is UIC value (0,0)? 
1 1F 4 BEQL 0$ ; Branch if yes 
58 1 88 8 7 BISB2 #DAPSM_OWNER,R11 : Set OWNER Dit in temp PROMENU 
08 AG «6OFFFF BF BI 50 10$: CMPW #-1, XABSW_PRO(R6) ; Are the 4 protection fields defaulted? 
3.6 C13 09 1 BEQL 208 ; Branch if yes 


AB MESSAGES + 7$E0- 138% 93:49:13 aves Macro V04-00 Page 13 | 
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5B sl€E 88 B § BISB2 #<DAPSM_ 4 he ; Set temp PROMENU bits 
E DA P$M"P PROOWN! = 3 
E 4 DAPS$M-PROGRP! - : 
E 5 DAPSM-PROWLD>,R11 $ 
85 8 %9 OE § 20$: MOVB R11, (R534 3; Store PROMENU as an extensible field 
dD =61 1 fi BEQL 70$° : Branch if no more fields to send 
1 89 ; 
! $ ; Include the OWNER field in the message. 
1 92 ° 
4E 5B -*, ae o 1 38 BBC #OArSy. WNER,R11,60$ ; Branch if no OWNER field 
5 4 ¢2 021 94 SUBL2 #<16s 878+4>,5P ; Allocate space from the stack 
5 3 DO O21A 595 MOVL SP,R2 3; Save address of work area 
10 A 1 DO 0210 e09 MOVL #16, 16(R2) ; Form geser jpcor of buffer to receive 
14 A2_ S5E D0 0221 59 MOV P,20(R2) : ASCII stri ng 
18 A2 FOD7 CF QA QO225 598 MOVZBL w*f_UIC,24(R2) 3; From descriptor of FAO control 
1C A2. FOD2 CF «=6—99E «(02280 OO5599 VAB W*T_UIC#+1,28(R2) ; string 
50 OF A6 3C 0231 600 MOVZWL XABSW_GRP(R6) RO : Get group UIC value 
51 OC A6 3C 0235 601 MOVZWL XABSW_MBM(R6),R1 3; Get member UIC value 
0239 o0e $FAO_S- ; Format the UIC string 
0 $3 60 CTRSTR= Hes Ee ; FAO control string 
0239 604 OUTLEN=32(R2)- ; Address to receive string length 
0239 605 OUTBUF =16(R2)=- 3; Address of buffer descriptor 
0239 606 P1=RO0- ; Group number of file owner 
0239 607 P2=R1 : Member nee ot file owner 
04 50 €8 85 <8 608 BLBS RO,40$ : Branch on su 
8» 94 6 30 609 CLRB (R3)+ : Send null OWNER field 
50 20Aa2 3€ 0954 611 40$: MOVZWL 32(R2),RO ; Get Lengeh of returned strin 
85 50 90 0258 612 MOVE —-RO, (R5S+ : Store OWNER as an image fiel 
65 9¢ 50 28 os2e 61 MOVC3 RO,(R2),(R5) ; Copy owner string to soasage 
5 53 00 O25F 614 MOVL R3,R5 ; Update next byte pointer 
ae ae bs0e ot? 50$: ADDL2 #<16+8+8+4>,SP ; Deallocate space from the stack 
0265 617; 
asee 213 ; Construct the four protection fields: PROSYS, PROOWN, PROGRP, and PROWLD. 
0965 620 * 
50 5B 04 01 #42x+EF 0265 621 60S: EXTZV #DAPSV_PROSYS,#4,R11,RO0 ; Get the protection bits to check 
24 = «13 asen e ; BEQL 70$ : Branch if they're all defaulted 
026C 624 ASSUME DAPSV_RED_ACC EQ XABSV_NOREAD 
8 6C 625 ASSUME DAPS$V_WRT_ACC EQ XABSV— _NOWRITE 
6C 626 ASSUME DAPS$V_EXE_ACC EQ XABSV_NOE XE 
8 ef ? f ASSUME DAPS$V— “DLT- “ACC EQ XABSV_NOPEL 
026C 629 ASSUME DAPS$V_RED_ACC LT 7 
026C 630 ASSUME “WRT-ACC LT 7 
8 6C 631 ASSUME DAPSV_EXE_ACC LT 7 
oe ? § ASSUME DAP$V~ “DLT- ACC LT 7 
50 08 AB 3C 8 634 MOVZWL XABSW_PRO(R6),RO ; Get protection value 
51 50 4 99 F 635 EXTZV 4 lb SYS.A #4;RO.R ; Store system protect ten field 
5 1 0 7 6 $ MOVB 3 aS an extensib 
51 50 04 046 EF 0278 6 EXTZV PxAGSY OWN, #4,R0,R1 ; Store owner protection field 
85 1 0 7D 3=6638 MOVB R1, (R5T+ 3 aS an extensible field 


BUILD BOE. XAB MESSAGES 


SSScSSScs 
WOn~IwtOoVrU @ur1oO 
POAAOSOSAAS OC 
at at et et et et ee 
NOUS Wn OOo 

~“ 

Oo 

bod 


19736 -138 


#XABSY .6 GRP,#4,RO,R1 
UY WLD, #4,RO,R1 
R1, (R534 

NigBUiLD TAIL 


AX/VMS Macro v04-00 Page 
RMS .SRCINT TOBLDXAB.MAR; 1 


Store group protection field 
as an extensible field 
Store world protection field 
as an extensible field 
Finish building message 
eer register 


; End of module 
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$$.PSECT_EP 
SSRMSTEST 
SSRMS_PBUGCHK 
SSRMS~TBUGCHK 
$SRMS “UMODE 


$ 
CONVERT_TIME 
DAP$B_ATD 


DAPSB_DAN 
DAPSB_DATATYPE 
DAP$B_DBS 
DAPSB_DCODE_F ID 


DAP$B_DCODE_ MAC 
DAPSB_DCODE_ASG 


AN 
DAP$B_LEN256 
DAPS$B_LENGTH 


IZ 
“S$12_ TMP 
DAP$B_STREAMID 
Pp KS 


DAP$C_BCN 
DAPSK_ALL_MSG 
DAPSK_ANY 


D 
DAPSK~PRO_MSG 
DAP$K~SEQ 


DAPSK~STG 
DAPSK-TIM_MSG 
DAP$K~VBN 
DAPSL~ALQ1 
DAPSL~ALQ2 
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4 00 
sab 
eat 
8 4 
00001 ? 
SEs 
Se 
00000 35 
4444 “9 
4 1 
0 get 
0000007 
00000044 
aiea'e £5 
0000001 
00000018 
QOOO00TA 
00000071 
00060031 
00000048 
00000051 
0000006E 
00000070 
44 $4449 
00000034 
00000033 
0000007E 
00000049 
0000006D 
00000045 
00000047 
0000006C 
00000046 
0000005C 
Q000004A 
SOR D OTE 
0000007F 
444 4 
00000024 
09000008 
$8 
000: Bok 
0000001 
4 
000 3 
Ss 
000 000 
Sie 
sui 
44 ods 
0000004C 


01 


DAPSL_ATTMENU 
DAPSL-CMWA 
DAPSL-CRC_RSLT 


DAPSL—~MRN 
DAPSL—~MSG_MASK 
DAPSL-RVB 


DAPSM— 
DAPSM~CMPFMT 


DAPSM~EDT 
DAPSM-EMBEDDED 
DAPSM~FLG 
DAPSM~1AN 
DAPSM~IFL 
DAPSM~ IMAGE 
DAPSM_KNM 


DAPSM~NUL 
DAPSM~OWNER 


DAPSM_TMP3S 
DAPSM_TMP4S 
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Symbol table 


DAPSM_TMPSS 


P$Q"CDT 
DAP$Q"DCODE_FLG 
DA D 


P$Q_EDT 
DAPS$Q_KNM 
DAP$SQ_MSG_BUF 1 
DAP$Q_MSG_BUF 2 
DAP$Q" OWNER 


D 
DAPSV~EDT 
DAPSV~EXE_ACC 
DAP$V~GEQ_V60 
DAPSV~ 
DAPSV"NUL_CHR 
DAP$V~ON 
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DAP$W_PROSYS 
DAP$W~PROWLD 
DAPSW-RVN 
DAP$W~TIMENU 
DAPS$W-VERSION 
DAP 


NW 
NWASB_OSTYPE 
NWASB_RFM 
NWASB_RMS_RAC 
NWASC_BLN 
NWASK_BLN 
NWASL_ALLXABADR 
NUASL _DATKABADR 


NWASL_FHCXABADR 
NWASL_KEYXABADR 


NWASL~SAVE_FLGS 
NWASL ~SUMXABADR 
NWASL THREAD 
NWASL-XLTATTR 
NWASL—XLTBUFFLG 
WASL-XLTCNT 


NWA$Q~LNODE 
NWA$Q~LOGNAME 
NWASQ"NCB 
NWASQ"RCV 
NUASG_SAVE DESC 


NWASQ"XLTBOF 1 
NWASQ"XLTBUF 2 
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Symbol table 

NWASQ_XMT 

NWAST_ACSBUF 

| NWAST_AUXBUF 
$T DAP 


NWASW_FIL OFF 
wuASY JNLEABJOP 


PA 
SYSSASCTIM 
SYS$FAO 


XABSB~ 
XABSS~CYL 
KABSC_DATLEN 
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Fewer en ee coon aman + 


! Psect synopsis ! 


few mec ecenreaseaces 


PSECT name Allocation PSECT No. Attributes 

, Os . 00000 9° ( 0.) 99 ( 0.) NOPIC USR CON ABS ~ LCL NOSHR NOEXE 

NF SNE TWORK 00000298 ( 664.) 01 ¢ 1.) PIC USR CON REL GBL NOSHR- EXE 

SABSS 00000800 ( 2048.) 02 ¢ 2.) NOPIC  USR CON ABS LCL NOSHR’- EXE 
$m tem om nae ame wow esr eeeneoae + 
H Performance indicators ! 

Phase Page faults CPU Time Elapsed Time 

Initialization 3 88:00:00. 1¢ 00:90:00.9? 

Command processing 1 BR 30: §-6) B00 08-87 

Pass 326 00:00:1 Ge aS SE 84 

Symbol table sort 0 00:00:01. 00:00:02.07 

Pass at 00: 805-8 00:00:06.41 

Symbol table output 6 00:00:00.30 00:00:00.63 

Psect synopsis output 2 00:00:00.03 00:00:00.05 

Cross-reference output 0 00:00:00.00 00:00:00.00 

Assembler run totals 646 00:00:18.07 00:00:44.84 


The working set Limit was 1500 pages. 

66351 bytes (130 pages) of virtual memory were used to buffer the intermediate sede. 

There were 60 pages of symbol table space allocated to hold 1003 non-local and 35 local symbols. 
647 source Lines were read in Pass 1, producing 15 object records in Pass 2. 

30 pages of virtual memory were used to define 28 macros. 


+ 
H Macro Library statistics H 


Macro Library name Macros defined 


~$255$DUA28: CRMS .OBJIRMS.MLB; 1 17 
$255$DUA28: CSYSLIBISTARLET.MLB; 2 7 
TOTALS (all Libraries) 24 


1344 GETS were required to define 24 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:NTOBLDXAB/OBJ=OBJ$:NTOBLDXAB MSRC$:NTOBLDXAB/UPDATE=(ENH$:NTOBLDXAB) +L 1B$:RMS/LIB 


NORD NOWRT NOVEC BYTE 
RD NOWRT NOVEC BYTE 
WRT NOVEC BYTE 
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